home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swags_z.zip
/
STRINGS.SWG
/
0027_Compare Strings.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-08-27
|
337b
|
13 lines
Function CompareStr(Str1, Str1 : String) : Boolean;
begin
if (Length(Str1) = Length(Str2)) and (Pos(Str1, Str2) <> 0)) then
CompareStr := True
else
CompareStr := False;
end;
Function CompareStrContext(Str1, Str2 : String) : Boolean;
begin
CompareStrContext := CompareStr(StUpCase(Str1), StUpCase(Str2));
end;